home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs53.d81 / polldevs.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  29 lines
  1. 0 REM * POLL DEVS.BAS BY DOUG COTTON *       * (C)1991 CREATIVE MICRO DESIGNS *
  2. 1 PRINT"[147]";:DIM DN$(6),LB(6),HB(6),CK$(6),NB(6),TY$(7)
  3. 5 FORI=1TO6:READDN$(I),LB(I),HB(I),CK$(I),NB(I),TY$(I):NEXT:READTY$(7)
  4. 10 FORI=8TO29
  5. 20 OPEN15,I,15:CLOSE15
  6. 30 IFST=0THENPRINT"DEVICE"I;:GOSUB70
  7. 40 NEXT
  8. 50 END
  9. 60 DATA "CMD HD",164,254,"HD",2," ( NATIVE"
  10. 61 DATA "RAMDRIVE",164,254,"RD",2," ( 1541"
  11. 62 DATA "RAMLINK",164,254,"RL",2," ( 1571"
  12. 63 DATA "1581",233,166,"8",1," ( 1581"
  13. 64 DATA "1571",198,229,"7",1," ( 1581 CP/M"
  14. 65 DATA "1541",198,229,"4",1," ( PRINT BUFFER"," ( FOREIGN"
  15. 70 OPEN15,I,15
  16. 80 FORJ=1TO6
  17. 90 PRINT#15,"M-R"CHR$(LB(J))CHR$(HB(J))CHR$(NB(J))
  18. 100 GET#15,X$:IFNB(J)=2THENGET#15,Y$:X$=X$+Y$
  19. 110 IFX$=CK$(J)THENPRINTDN$(J);:T=J:J=6:IFT<4THENGOSUB150
  20. 120 NEXT
  21. 130 PRINT:CLOSE15
  22. 140 RETURN
  23. 150 PRINT#15,"G-P"CHR$(255)
  24. 160 GET#15,T$:T=ASC(T$+CHR$(0))
  25. 170 PRINTTY$(T);
  26. 180 GET#15,Z$,PN$:PN=ASC(PN$+CHR$(0))
  27. 190 PRINT" #";PN;")";
  28. 200 RETURN
  29.